home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilreen / prntutil / gem'prtr.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-14  |  7.5 KB  |  284 lines
  1. 1000  WIDTH ,255
  2. 1010  FLG = 0
  3. 1020  CLS
  4. 1030  REM  ASCII Commands for Gemini 10x Printer
  5. 1040  PRINT ,"  GEMINI-10X PRINTER SET-UP ROUTINE"
  6. 1050  PRINT "     {Copyright @ 1985: Hank Mantz / OKC,OK; Ver 2.18: 6/11/85}"
  7. 1060  PRINT "            {ENTER <@> FOR RIGHTS AND DATA STATEMENT}"
  8. 1070  PRINT
  9. 1080  PRINT "        A] PICA (10 CPI) ON             B] ELITE (12 CPI) ON"
  10. 1090  PRINT "        C] MICRON (17 CPI)ON            D] NEAR LETTER QUALITY    "
  11. 1100  PRINT "        E] ITALICS ON                   F] ITALICS OFF"
  12. 1110  PRINT "        G] DOUBLE WIDTH ON              H] DOUBLE WIDTH OFF  "
  13. 1120  PRINT "        I] DOUBLE STRIKE ON             J] DOUBLE STRIKE OFF"
  14. 1130  PRINT "        K] EMPHASIZED ON (Pica Only)    L] EMPHASIZED OFF  "
  15. 1140  PRINT "        M] UNDERLINING ON               N] UNDERLINING OFF"
  16. 1150  PRINT "        O] VARIABLE LINESPACING         P] 6 LPI SPACING"
  17. 1160  PRINT "        Q] PAGE LENGHT (Lines)          R] PAGE LENGTH (Inches)"
  18. 1170  PRINT "        S] LEFT MARGIN (Col #)          T] RIGHT MARGIN (Col #)"
  19. 1180  PRINT "        U] PERFORATION SKIP ON (Lines)  V] PERFORATION SKIP OFF  "
  20. 1190  PRINT "        W] CONTINUOUS FORMS             X] SINGLE SHEET PAPER"
  21. 1200  PRINT "        Y] SUB/SUPERSCRIPT (Set/Cancel) Z] SET TOP OF FORM (Line #)"
  22. 1210  PRINT "              ^] Send 5 Lines to Printer as a Test     "
  23. 1220  PRINT "        : : :                           : : :  "
  24. 1230  PRINT "        *] INITIALIZE PRINTER           \] FINISHED, RTN TO DOS"
  25. 1240  PRINT
  26. 1250  PRINT "        SELECTION ? {Enter single character, translation will echo}"
  27. 1260  IF FLG = 0 GOTO 1280
  28. 1270  PRINT "DEFAULTS ARE ON {PICA, 6LPI, CONT'S FORMS, MARGIN 0/80, PERF SKIP OFF, ETC.} "
  29. 1280  N$=INPUT$(1)
  30. 1290  IF N$ = "@" GOTO 3590
  31. 1300  IF N$ = "A" GOTO 1970
  32. 1310  IF N$ = "a" GOTO 1970
  33. 1320  IF N$ = "B" GOTO 2020
  34. 1330  IF N$ = "b" GOTO 2020
  35. 1340  IF N$ = "C" GOTO 2080
  36. 1350  IF N$ = "c" GOTO 2080
  37. 1360  IF N$ = "D" GOTO 3230
  38. 1370  IF N$ = "d" GOTO 3230
  39. 1380  IF N$ = "E" GOTO 2140
  40. 1390  IF N$ = "e" GOTO 2140
  41. 1400  IF N$ = "F" GOTO 2180
  42. 1410  IF N$ = "f" GOTO 2180
  43. 1420  IF N$ = "G" GOTO 2430
  44. 1430  IF N$ = "g" GOTO 2430
  45. 1440  IF N$ = "H" GOTO 2470
  46. 1450  IF N$ = "h" GOTO 2470
  47. 1460  IF N$ = "I" GOTO 2350
  48. 1470  IF N$ = "i" GOTO 2350
  49. 1480  IF N$ = "J" GOTO 2390
  50. 1490  IF N$ = "j" GOTO 2390
  51. 1500  IF N$ = "K" GOTO 2220
  52. 1510  IF N$ = "k" GOTO 2220
  53. 1520  IF N$ = "L" GOTO 2300
  54. 1530  IF N$ = "l" GOTO 2300
  55. 1540  IF N$ = "M" GOTO 2510
  56. 1550  IF N$ = "m" GOTO 2510
  57. 1560  IF N$ = "N" GOTO 2550
  58. 1570  IF N$ = "n" GOTO 2550
  59. 1580  IF N$ = "O" GOTO 2630
  60. 1590  IF N$ = "o" GOTO 2630
  61. 1600  IF N$ = "P" GOTO 2590
  62. 1610  IF N$ = "p" GOTO 2590
  63. 1620  IF N$ = "Q" GOTO 2870
  64. 1630  IF N$ = "q" GOTO 2870
  65. 1640  IF N$ = "R" GOTO 3490
  66. 1650  IF N$ = "r" GOTO 3490
  67. 1660  IF N$ = "S" GOTO 3170
  68. 1670  IF N$ = "s" GOTO 3170
  69. 1680  IF N$ = "T" GOTO 2800
  70. 1690  IF N$ = "t" GOTO 2800
  71. 1700  IF N$ = "U" GOTO 2930
  72. 1710  IF N$ = "u" GOTO 2930
  73. 1720  IF N$ = "V" GOTO 2990
  74. 1730  IF N$ = "v" GOTO 2990
  75. 1740  IF N$ = "W" GOTO 3030
  76. 1750  IF N$ = "w" GOTO 3030
  77. 1760  IF N$ = "X" GOTO 3070
  78. 1770  IF N$ = "x" GOTO 3070
  79. 1780  IF N$ = "Y" GOTO 3310
  80. 1790  IF N$ = "y" GOTO 3310
  81. 1800  IF N$ = "Z" GOTO 3110
  82. 1810  IF N$ = "z" GOTO 3110
  83. 1820  IF N$ = "*" GOTO 1900
  84. 1830  IF N$ = "\" GOTO 1870
  85. 1840  IF N$ = "!" GOTO 3710
  86. 1845  IF N$ = "^" GOTO 3800
  87. 1850  GOTO 1280
  88. 1860  REM   Z] RETURN TO DOS
  89. 1870  CLS
  90. 1880  PRINT "EXIT TO DOS"
  91. 1890  SYSTEM
  92. 1900  REM  RESET PRINTER TO DEFAULTS
  93. 1910  FLG = 1
  94. 1920  LPRINT CHR$(27);CHR$(64);
  95. 1930  LET FLG1 = 1
  96. 1940  CLS
  97. 1950  PRINT "***RESET***",
  98. 1960  GOTO 1030
  99. 1970  REM  ***** PICA ON
  100. 1980  LET FLG1 = 1
  101. 1990  LPRINT CHR$(27);CHR$(66);CHR$(1);
  102. 2000  PRINT "PICA ON",
  103. 2010  GOTO 1280
  104. 2020  REM ***** ELITE ON
  105. 2030  LET FLG1 = 0
  106. 2040  LPRINT CHR$(27);CHR$(66);CHR$(2);
  107. 2050  PRINT "ELITE ON",
  108. 2060  IF FLG2 = 1 GOTO 2310
  109. 2070  GOTO 1280
  110. 2080  REM   ***** MICRON ON
  111. 2090  LET FLG1 = 0
  112. 2100  LPRINT CHR$(27);CHR$(66);CHR$(3);
  113. 2110  PRINT "MICRON ON",
  114. 2120  IF FLG2 = 1 GOTO 2310
  115. 2130  GOTO 1280
  116. 2140  REM  ***** ITALICS ON
  117. 2150  LPRINT CHR$(27);CHR$(52);
  118. 2160  PRINT "ITALICS ON",
  119. 2170  GOTO 1280
  120. 2180  REM  ***** ITALICS OFF
  121. 2190  LPRINT CHR$(27);CHR$(53);
  122. 2200  PRINT "ITALICS OFF",
  123. 2210  GOTO 1280
  124. 2220  REM   ***** EMPHASIZE ON
  125. 2230  IF FLG1 = 1 GOTO 2260
  126. 2240  PRINT "Useable With PICA only - Request Aborted",
  127. 2250  GOTO 1280
  128. 2260  LPRINT CHR$(27);CHR$(69);
  129. 2270  FLG2 = 1 : ' FLAG SET FOR EMPH ON
  130. 2280  PRINT "EMPHASIZE ON",
  131. 2290  GOTO 1280
  132. 2300  REM  ***** EMPHASIZE OFF
  133. 2310  LPRINT CHR$(27);CHR$(70);
  134. 2320  FLG2 = 0  :' FLAG UNSET FOR EMPH OFF
  135. 2330  PRINT "EMPH. OFF",
  136. 2340  GOTO 1280
  137. 2350  REM  ***** DOUBLE STRIKE ON
  138. 2360  LPRINT CHR$(27);CHR$(71);
  139. 2370  PRINT "DBL.STK.ON",
  140. 2380  GOTO 1280
  141. 2390  REM ***** DBL STRIKE OFF
  142. 2400  LPRINT CHR$(27);CHR$(72);
  143. 2410  PRINT "DBL.STK.OFF",
  144. 2420  GOTO 1280
  145. 2430  REM  ***** DBL WIDTH ON
  146. 2440  LPRINT CHR$(27);CHR$(87);CHR$(1);
  147. 2450  PRINT "DBL.WDTH.ON",
  148. 2460  GOTO 1280
  149. 2470  REM  ***** DBL WIDTH OFF
  150. 2480  LPRINT CHR$(27);CHR$(87);CHR$(0);
  151. 2490  PRINT "DBL.WDTH.OFF",
  152. 2500  GOTO 1280
  153. 2510  REM  *****  UNDERLINE ON
  154. 2520  LPRINT CHR$(27);CHR$(45);CHR$(1);
  155. 2530  PRINT "UNDERLINE ON",
  156. 2540  GOTO 1280
  157. 2550  REM  ***** UNDERLINE OFF
  158. 2560  LPRINT CHR$(27);CHR$(45);CHR$(0);
  159. 2570  PRINT "UNDERL'N.OFF",
  160. 2580  GOTO 1280
  161. 2590  REM   ****** LINESPACE=6LPI
  162. 2600  LPRINT CHR$(27);CHR$(51);CHR$(24);
  163. 2610  PRINT "6 LPI",
  164. 2620  GOTO 1280
  165. 2630  REM  *****  VARIABLE LINESPACE
  166. 2640  PRINT "ENTER 1,2,3,4,6,8,9,or 12: ";
  167. 2650  L$ = INPUT$(2)
  168. 2660  IF L$ = "1 " GOTO 2760
  169. 2670  IF L$ = "2 " GOTO 2760
  170. 2680  IF L$="3 " GOTO 2760
  171. 2690  IF L$="4 " GOTO 2760
  172. 2700  IF L$="6 " GOTO 2760
  173. 2710  IF L$="8 " GOTO 2760
  174. 2720  IF L$="9 " GOTO 2760
  175. 2730  IF L$="12" GOTO 2760
  176. 2740  PRINT "INVALID, REQUEST ABORTED",
  177. 2750  GOTO 1280
  178. 2760  X = 144/VAL(L$)
  179. 2770  LPRINT CHR$(27);CHR$(51);CHR$(X);
  180. 2780  PRINT L$;" LPI",
  181. 2790  GOTO 1280
  182. 2800  REM  ***** COLUMN WIDTH
  183. 2810  LPRINT CHR$(27);CHR$(77);CHR$(1);
  184. 2820  PRINT "RIGHT MARGIN = ";
  185. 2830  W$ = INPUT$(3)
  186. 2840  LPRINT CHR$(27);CHR$(81);CHR$(VAL(W$));
  187. 2850  PRINT "Col ";W$,
  188. 2860  GOTO 1280
  189. 2870  REM  ****** PAGE LENTH in LINES
  190. 2880  PRINT "PG LGT (Lines) :";
  191. 2890  C$=INPUT$(2)
  192. 2900  LPRINT CHR$(27);CHR$(67);CHR$(VAL(C$));
  193. 2910  PRINT C$;" Lines",
  194. 2920  GOTO 1280
  195. 2930  REM  ***** PERFORATION SKIP ON
  196. 2940  PRINT "SKIP LINES = ";
  197. 2950  S$ = INPUT$(1)
  198. 2960  LPRINT CHR$(27);CHR$(78);CHR$(VAL(S$));
  199. 2970  PRINT S$;" Lines",
  200. 2980  GOTO 1280
  201. 2990  REM   *****  PERFORATION SKIP OFF
  202. 3000  LPRINT CHR$(27);CHR$(78);CHR$(0);
  203. 3010  PRINT "PRF.SKIP OFF",
  204. 3020  GOTO 1280
  205. 3030  REM   *****  CONTINUOUS FORMS
  206. 3040  LPRINT CHR$(27);CHR$(57);
  207. 3050  PRINT "CONT'S FORMS",
  208. 3060  GOTO 1280
  209. 3070  REM   *****  SINGLE SHEETS
  210. 3080  LPRINT CHR$(27);CHR$(56);
  211. 3090  PRINT "SINGLE SHEET",
  212. 3100  GOTO 1280
  213. 3110  REM    ****** SET FIRST PRINT LINE
  214. 3120  PRINT "BEGIN PRTG: ";
  215. 3130  P$ = INPUT$(1)
  216. 3140  LPRINT CHR$(27);CHR$(82);CHR$(VAL(P$));
  217. 3150  PRINT " Line ";P$,
  218. 3160  GOTO 1280
  219. 3170  REM   ***** SET LEFT MARGIN
  220. 3180  PRINT "LEFT MARGIN = ";
  221. 3190  M$ = INPUT$(2)
  222. 3200  LPRINT CHR$(27);CHR$(77);CHR$(VAL(M$));
  223. 3210  PRINT "Col ";M$,
  224. 3220  GOTO 1280
  225. 3230  REM   ******  NEAR LETTER QUALITY
  226. 3240  LPRINT CHR$(27);CHR$(64);:'RESET
  227. 3250  LET FLG1 = 1
  228. 3260  LPRINT CHR$(27);CHR$(71);:'DBL STRIKE
  229. 3265  GOTO 3270
  230. 3270  LPRINT CHR$(27);CHR$(69); :' EMPHASIZED ON
  231. 3280  FLG2 = 1 :' FLAG SET FOR EMPH ON
  232. 3290  PRINT "NEAR LTR QUAL {Pica/Emph/6LPI}",
  233. 3300  GOTO 1280
  234. 3310  REM   ***** SUBSCRIPT/SUPERSCRIPT/CANCEL
  235. 3320  PRINT "ENTER <_>=subscript, <^>=superscript, <#>=CANCEL: ";
  236. 3330  SCR$ = INPUT$(1)
  237. 3340  IF SCR$ = "#" GOTO 3450
  238. 3350  IF SCR$ = "_" GOTO 3390
  239. 3360  IF SCR$ = "^" GOTO 3420
  240. 3370  PRINT "INVALID REQUEST ABORTED",
  241. 3380  GOTO 1280
  242. 3390  LPRINT CHR$(27);CHR$(83);CHR$(1);
  243. 3400  PRINT "SUBSCRIPT ";"DBL STRIKE",
  244. 3410  GOTO 1280
  245. 3420  LPRINT CHR$(27);CHR$(83);CHR$(0);
  246. 3430  PRINT "SUPERSCRIPT ";"DBL STRIKE ON",
  247. 3440  GOTO 1280
  248. 3450  LPRINT CHR$(27);CHR$(84);
  249. 3460  LPRINT CHR$(27);CHR$(72);
  250. 3470  PRINT "SUB/SUPER OFF ";"DBL STRIKE OFF",
  251. 3480  GOTO 1280
  252. 3490  REM   *******  PAGE LENGTH SET IN INCHES
  253. 3500  INPUT; "PG LTH (Ins.)";P
  254. 3510  IF P > 32 GOTO 3560
  255. 3520  IF P < 1 GOTO 3560
  256. 3530  LPRINT CHR$(27);CHR$(67);CHR$(0);CHR$(P);
  257. 3540  PRINT " INCHES",
  258. 3550  GOTO 1280
  259. 3560  PRINT "ERROR "P" OUT OF LIMITS","{33>Limit>1}  ";
  260. 3570  PRINT " ***REQUEST ABORTED",
  261. 3580  GOTO 1280
  262. 3590  PRINT
  263. 3600  PRINT "RIGHTS AND DATA: This is a copyrighted package; however, uou are free to copy"
  264. 3610  PRINT "the package and provide FREE copies (except for cost of disks) to whomever"
  265. 3620  PRINT "you wish, provided the copyright legend and this text are not removed."
  266. 3630  PRINT "For those of you who received this package other than direct from the author,"
  267. 3640  PRINT "if you find the package useful, $10.00 sent to the author will put you on"
  268. 3650  PRINT "a mailing list entitling you to notification of any significant bugs or"
  269. 3660  PRINT "updates for at least one year."
  270. 3670  PRINT "                   author:  Hank Mantz"
  271. 3680  PRINT "                            2300 N.W. 120th St."
  272. 3690  PRINT "                            Oklahoma City, OK 73120"
  273. 3700  GOTO 1280
  274. 3710  LPRINT ;
  275. 3730  GOTO 1280
  276. 3800  REM  The following causes a sample to be printed on the printer
  277. 3801  PRINT "Test Sample",
  278. 3805  LPRINT "Printer Test Sample - 3 Lines Follow . . ."
  279. 3810  LPRINT "ABCDE FGHIJ KLMNO PQRST UVWXY Z"
  280. 3820  LPRINT "abcde fghij klmno pqrst uvwxy z"
  281. 3830  LPRINT "12345 67890 !@#$% ^&*() - _ + = { } [ ] ; : '<>?/|\""
  282. 3835  LPRINT ". . . Printer Test Sample Complete"
  283. 3840  GOTO 1280
  284.